Form1 CProtect sample Form1, Picture1 Picture4 Label1 security file name Start Start timer Cfgname Uname1 Ucompany1 Cfgmake Create security file Label7 Usage Getnames Get Name and Company Label8 Total Label9 Last time Label2 serial number Thour Label11 hours Chour Snumber Picture5 Label12 minutes Register Register program! Picture2 Picture7 Label13 seconds Feature Label4 access code Label10 Times used Ttimes Picture6 Picture8 Regmake Make Regcode Checkmessage Stopnow Stop timer Label3 registration code Checkreg Check if registered Regcode 9 Picture10 Label14 -Code example using Cprotect with Visual Basic Label15 Thomas Lichtneckert Goodbye Close Picture3 Picture9 Label5 Uname 0 Codecheck Label6 company Ucompany 1 CheckCode Check the code Setnames Set Name and Company Hlpbar FILE_NOT_FOUND PATH_NOT_VALID NO_PATH NOT_REMOVABLE DRIVE_OK NO_ARGUMENTS DRIVE_NOT_FLOPPYT DRIVE_NOT_READY DRIVE_NOT_VALID% DRIVE_ERROR WRONG_DISKETTE5 DRIVE_WRPROT DRIVE_WRPROT_A DRIVE_WRPROT_B DISK_ISIN_A DISK_ISIN_BO NOT_REGISTERED NO_REGINFO NO_SERNUMBER FEATURES_NOT_AVAILABLE WRONG_CODE* IS_REGISTERED cpMakeRegCodeE features serialnum regcodeN cpCFGMakeF magic filever9 cpGetSernumt cpRegisterProgram` cpCheckRegCode/ cpGetRegisteredName0 cpGetRegisteredCompany. company cpSetRegisteredNames cpIsRegistered cpGetUParams lparam= iparam1 iparam2] iparam3 iparam4 iparam5 cpSetUParamsM cpSetFTime datum cpWhichDriveO file" cpDirRemove cpStartProgram? cpEndProgram cpGetUStatistics utimes Thour. TminO Chour cpGetFileinfoq version Text1_ChangeW Text1u cpMakeFile Text1_LostFocus Text2 versY Command1_Click Text4 Form_Click Text2_ChangeQ Cfgmake_ClickI sernum Feature_Change Form_LoadI Feature Form_GotFocus Regmake_Click, fcode Snumber rcode VScroll1_Change Uname_Change Uname1 Ucompany1 Cfgname Setname_Click uname u_name u_comph Ucompany3 cfg_name6 u_com Ucompany_Change Getnames_Click Setnames_Click Snumber_ChangeK Ucompany1_Change Uname1_Change Checkreg_Click& Checkmessage_Change Checkmessage Register_Click reg_code Picture1_Click Picture4_Click Csek_Change IndexC CheckCode_Click Codecheck_Change Regcode_Change ElsIf^ registered CodecheckT Start_Click Ttimes Stopnow_Click times t_hour t_minJ t_sec c_hour c_min c_sec Goodbye_ClickJ Form12 Unload Form_Unload Cancel totalhourf totalmin Totalsek lasthour lastMin Lastsek Cfgname_Change Cfgname_hlp Cfgname_GotFocusY Hlpbar Cfgmake_hlp Feature_hlp Regmake_hlp Uname_hlp Ucompany_hlp Setnames_hlp Getnames_hlpz Register_hlp Checkreg_hlp CheckCode_hlp; Start_hlp Stopnow_hlpm Goodbye_hlp Cfgmake_GotFocus CheckCode_GotFocus Checkreg_GotFocus Codecheck_hlp Feature_GotFocus Getnames_GotFocusq Goodbye_GotFocus\ Regmake_GotFocus5 Setnames_GotFocus! Start_GotFocus Stopnow_GotFocus Ucompany_GotFocus Uname_GotFocus Register_GotFocus timef fdate ftime totalsec lastsec Write the name of your security file here. Press to make a new security file with a new serial number." The feature code ( 1 - 15 ) for which you want to make a registration code." Press to create a matching registration code." The name of the registered user that you want in the security file." The name of the users company" Press to write the above names to the security file. To retreive the user and company names from the security file. To write the registrtation code into the security file." To find out whether the security file contains a registration code." Check which feature the registration code in the security file enables." Start the usage timer and increment the 'Times used' counter." To stop the usage timer and display usage statistics." To quit this testprogram." Cfgmake_Click Regmake_Click Feature_Change Uname_Change Ucompany_Change Setnames_Click Getnames_Click Checkreg_Click Program is " registered Register_Click CheckCode_Click code$ = Regcode.text Regcode incorrect! Fileproblems!" t$ = "Access " + Str$(a) + " registered" Start_Click Stopnow_Click Goodbye_Click Cfgname_GotFocus Cfgmake_GotFocus CheckCode_GotFocus Checkreg_GotFocus Feature_GotFocus Getnames_GotFocus Goodbye_GotFocus Regmake_GotFocus Setnames_GotFocus Start_GotFocus Stopnow_GotFocus Ucompany_GotFocus Uname_GotFocus Register_GotFocus